home *** CD-ROM | disk | FTP | other *** search
/ X User Tools / X User Tools (O'Reilly and Associates)(1994).ISO / sun4c / archive / tcltk.z / tcltk / slib / tk / demos / hello < prev    next >
Text File  |  1994-09-20  |  466b  |  13 lines
  1. #!///////////////////////////////////////////////////////////////////////////usr/STAGE/bin/wish -f
  2. # Simple Tk script to create a button that prints "Hello, world".
  3. # Click on the button to terminate the program.
  4. # 
  5. # The first line below creates the button, and the second line
  6. # asks the packer to shrink-wrap the application's main window
  7. # around the button.
  8.  
  9. button .hello -text "Hello, world" -command {
  10.     puts stdout "Hello, world"; destroy .
  11. }
  12. pack .hello
  13.